home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 34.zip
/
BS1 part 34
/
Pro-net (final).adf
/
INIT
< prev
next >
Wrap
Text File
|
2018-01-18
|
1KB
|
46 lines
. Initialize data disk
. <file> should be Df0: or Df1: or Dh0:PRO-NET/
. example: execute InitDataDisk df0:
.key file/a
IF <file> EQ DH0:PRO-NET/
MAKEDIR DH0:PRO-NET
else
IF not exists <file>
echo "<file> not found"
QUIT
endif
endif
if not exists <file>PNPOST
MAKEDIR <file>PNPOST
endif
if not exists <file>PNDIR
MAKEDIR <file>PNDIR
copy RAM:DirEmpty to <file>PNDIR/TTL
copy RAM:DirEmpty to <file>PNDIR/MOS
copy RAM:DirEmpty to <file>PNDIR/VLSI
copy RAM:DirEmpty to <file>PNDIR/ECL
copy RAM:DirEmpty to <file>PNDIR/Analog
copy RAM:DirEmpty to <file>PNDIR/Discrete
copy RAM:DirEmpty to <file>PNDIR/MTTL
copy RAM:DirEmpty to <file>PNDIR/User
copy RAM:DirEmpty to <file>PNDIR/Symbol
copy RAM:DirEmpty to <file>PNDIR/Schem
DELETE RAM:DirEmpty
endif
if not exists <file>PNLIB
MAKEDIR <file>PNLIB
MAKEDIR <file>PNLIB/TTL
MAKEDIR <file>PNLIB/MOS
MAKEDIR <file>PNLIB/VLSI
MAKEDIR <file>PNLIB/ECL
MAKEDIR <file>PNLIB/Analog
MAKEDIR <file>PNLIB/Discrete
MAKEDIR <file>PNLIB/MTTL
MAKEDIR <file>PNLIB/User
MAKEDIR <file>PNLIB/Symbol
MAKEDIR <file>PNLIB/Schem
endif
quit